perm filename COOP.POX[2,VDS]1 blob
sn#175550 filedate 1975-08-24 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00041 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00005 00002 $|\\M0CTL25\M1BASB30\M2GACB25\M3LGI25\M4LGR25\M5FIX25X\M6FIX25\
C00006 00003 \C\F1TABLE OF CONTENTS
C00011 00004 \F1I. INTRODUCTION\F4
C00015 00005 \F1I. INTRODUCTION \F4(continued)
C00019 00006 \F1II. DESCRIPTION OF THE OUTPUT\F4
C00023 00007 \F1II-B. PACKING LISTS\F4
C00026 00008 \F1II-C. PACKING LABELS\F4
C00029 00009 \F1II-E. STATUS OF ACCOUNTS\F4
C00032 00010 \F1II-F. BILLING SHEETS\F4
C00035 00011 \F1II-F. BILLING SHEETS \F4(continued)
C00037 00012 \F1III. DESCRIPTION OF THE INPUT\F4
C00041 00013 \F1III-B. COOPERATIVE INFORMATION CARD\F4
C00045 00014 \F1III-C. ACCOUNTING LIST HEADINGS \F4(Optional)
C00048 00015 \F1III-D. MEMBERSHIP FILE\F4
C00051 00016 \F1III-E. PRODUCT FILE\F4
C00055 00017 \F1III-E. PRODUCT FILE \F4(continued)
C00057 00018 \F1III-G. ORDERS FILE\F4
C00060 00019 \F1III-G. ORDERS FILE \F4(continued)
C00062 00020 \F1III-H. ACCOUNTING LISTS FILE\F4 (Optional)
C00065 00021 \F1III-H. ACCOUNTING LISTS FILE \F4(continued)
C00067 00022 \F1III-I. ORDER CHANGES FILE\F4 (Optional)
C00070 00023 \F1III-I. ORDER CHANGES FILE \F4(continued)
C00073 00024 \F1III-J. BILLING SHEET NOTES\F4 (Optional)
C00075 00025 \F1APPENDIX A. ORDER COMPILATION PROGRAM CHECKLIST
C00077 00026 \F12. \←.\→l\jPUNCH\f4 CARDS\f4 AS\f4 PER\f4 THE\f4 FOLLOWING\f4 PAGES\f4 AS\f4 NEEDED
C00080 00027 \F12-a. COOPERATIVE INFORMATION CARD\F4 (Page 12)
C00084 00028 \F12-e. DATE CARD\F4 (Page 16)
C00087 00029 \F12-g. ACCOUNTING LISTS FILE\F4 (continued)
C00092 00030 \F1APPENDIX B. BILLING PROGRAM CHECKLIST
C00094 00031 \F12. \←.\→l\jPUNCH\f4 CARDS\f4 AS\f4 PER\f4 THE\f4 FOLLOWING\f4 PAGES\f4 AS\f4 NEEDED
C00097 00032 \F12-a. COOPERATIVE INFORMATION CARD\F4 (Page 12)
C00101 00033 \F12-e. ACCOUNTING LISTS FILE\F4 (continued)
C00104 00034 \F12-g. BILLING SHEET NOTES\F4 (maximum of 10 cards) (Page 23)
C00108 00035 \F1APPENDIX C. SUMMARY OF PROGRAM DECK ORGANIZATION\F4
C00112 00036 \F1APPENDIX D. KEYPUNCH CONTROL CARDS\F4
C00116 00037 \F1APPENDIX F. MAKING CHANGES TO THE PROGRAMS\F4
C00120 00038 \F12. CHANGING THE NUMBER OF COPIES OF VARIOUS PRINTOUTS\F4
C00123 00039 \This is the title page
C00124 00040 \This is the copyright page
C00125 00041 \F1APPENDIX E. ERROR MESSAGES PRINTED BY THE PROGRAMS\F4
C00129 ENDMK
C⊗;
$|\\M0CTL25;\M1BASB30;\M2GACB25;\M3LGI25;\M4LGR25;\M5FIX25X;\M6FIX25;\;
\M7GACL25;\M8LG25;\M9BDR25;\MABDR40;\;
\←L\→X\;
\←R\→r\-L\/=16;\+L\→L\→Y\;
\F0\C.
\C\F1TABLE OF CONTENTS
\F9
I. INTRODUCTION \;
\R. . . . . . . . . . . . . . . . . . . . . . . . . . 3
II. DESCRIPTION OF THE OUTPUT\;
\R. . . . . . . . . . . . . . . . . . . 5
A. BUYING LIST\;
\R. . . . . . . . . . . . . . . . . . . . . . . . . 5
B. PACKING LISTS\;
\R. . . . . . . . . . . . . . . . . . . . . . . . 6
C. PACKING LABELS\;
\R. . . . . . . . . . . . . . . . . . . . . . . 7
D. PRICE LIST\;
\R. . . . . . . . . . . . . . . . . . . . . . . . . 7
E. STATUS OF ACCOUNTS\;
\R. . . . . . . . . . . . . . . . . . . . . 8
F. BILLING SHEETS\;
\R. . . . . . . . . . . . . . . . . . . . . . . 9
G. MEMBERSHIP FILE CARDS\;
\R. . . . . . . . . . . . . . . . . . . 10
III. DESCRIPTION OF THE INPUT\;
\R. . . . . . . . . . . . . . . . . . . . 11
A. SUMMARY OF THE INPUT\;
\R. . . . . . . . . . . . . . . . . . . 11
B. COOPERATIVE IDENTIFICATION CARD\;
\R. . . . . . . . . . . . . . . 12
C. ACCOUNTING LIST HEADINGS\;
\R. . . . . . . . . . . . . . . . . . 13
D. MEMBERSHIP FILE\;
\R. . . . . . . . . . . . . . . . . . . . . . 14
E. PRODUCT FILE\;
\R. . . . . . . . . . . . . . . . . . . . . . . . 15
F. DATE CARD\;
\R. . . . . . . . . . . . . . . . . . . . . . . . . 16
G. ORDERS FILE\;
\R. . . . . . . . . . . . . . . . . . . . . . . . 17
H. ACCOUNTING LISTS FILE\;
\R. . . . . . . . . . . . . . . . . . . . 19
I. ORDER CHANGES FILE\;
\R. . . . . . . . . . . . . . . . . . . . . 21
J. BILLING SHEET NOTES\;
\R. . . . . . . . . . . . . . . . . . . . . 23
APPENDIX A. ORDER COMPILATION PROGRAM CHECKLIST\;
\R. . . . . . . . . . 24
APPENDIX B. BILLING PROGRAM CHECKLIST\;
\R. . . . . . . . . . . . . . . 29
APPENDIX C. SUMMARY OF PROGRAM DECK ORGANIZATION\;
\R. . . . . . . . . 34
APPENDIX D. KEYPUNCH CONTROL CARDS\;
\R. . . . . . . . . . . . . . . . 35
APPENDIX E. ERROR MESSAGES PRINTED BY THE PROGRAM\;
\R. . . . . . . . 36
APPENDIX F. MAKING CHANGES TO THE PROGRAMS\;
\R. . . . . . . . . . . . . . 37
\C\F4-2-
\F1I. INTRODUCTION\F4
\J There are two programs to this package. The table below summarizes their
input and output.
The first, the ORDER COMPILATION PROGRAM, is used to produce (1) a "Buying
List" containing the total amount ordered of each product, and (2) "Packing
Lists" and "Packing Labels" used to distribute the products.
The second program, the BILLING PROGRAM, is mainly used to compute the cost
of each member's order and print itemized "Billing Sheets". It can be utilized
further to apply other accounting entries, and thus keep track of the status of
the members' accounts. A "Status of Accounts" sheet is produced, summarizing
the transactions processed, with totals produced for administrative use. A
"Price List" of the buy & sell prices of the products is also produced.
A detailed description of the output follows in Section II, and should be
read by those responsible for using the output. The person\f9(s\f9) responsible for
entering the input data should study the description of the input which is in
Section III.\.
Table 1 - Summary of Program Input & Output
Program Minimum Input Output Produced
__________________________________________________________________________
ORDER Cooperative Identification Card Buying List (2 copies)
COMPILATION Membership File Packing Lists
Product File Packing Labels
Date Card
Orders File
__________________________________________________________________________
BILLING Same as above plus, optionally: Price List (2 copies)
Accounting List Headings (\f6*) Status of Accounts
Accounting Lists File (\f6*) (2 copies)
Order Changes File Billing Sheets
Billing Sheet Notes New Membership Cards
(produced only if
Accounting Lists used)
(\f6*) \←.\→lIt is generally convenient to submit these two inputs to the ORDER\←.\→r
\jCOMPILATION PROGRAM so they will be keypunched and error checked
before the BILLING PROGRAM session is begun.\.
\←R\→r\;
\C-3-
\F1I. INTRODUCTION \F4(continued)
\J Appendix A contains a checklist of things to be done by the person\f9(s\f9) using
the ORDER COMPILATION PROGRAM. This should be copied, modified as needed to meet
your organization's requirements (the empty boxes are meant to be filled in as
desired), and given to the appropriate person\f9(s\f9) to be used as a guide/reminder.
Then, once the basic requirements for the various data cards are learned (e.g. the
information required and the restrictions), Appendix A should be sufficient to
refresh the user's memory when a question arises, and this booklet can be kept
in the organization files.
Appendix B contains a similar checklist for the person\f9(s\f9) using the BILLING
PROGRAM. This should be copied and given out similarly.
Appendix C contains a summary of the program deck organization that
can be used to reassemble a deck that has been dropped or otherwise dis-
rupted. This should be copied and given to the users of both programs.
Appendix D contains a list of the keypunch control cards provided with the
programs, which is useful when it is necessary to replace a lost control card.
This appendix should be copied and given to the users of both programs.
Both programs provide error checking of the input data. Appendix E contains
a list of the error messages printed by the programs, and indicates what error
checking is done by each of the programs.
Appendix F contains instructions on how to modify the programs to suit the
needs of particular organizations. Modifications described include: changing
the restrictions on the sizes of the various input files; changing the number of
copies of the Buying List, Price List, and Status of Accounts; and obtaining a
printed copy of the new Membership Cards.
It should be noted that some of the information in the appendices assumes
that the programs are being used on the Stanford University IBM 360/67 computer
with the WATFIV compiler, and thus may not apply if the programs are used
differently.\.
\C-4-
\F1II. DESCRIPTION OF THE OUTPUT\F4
In Section II the following notation is used:
\←.\→l\-L\/'3;\*'2;\¬R\→r\;
\jInformation in double quotes (i.e. " ... ") represents a computer
output line or column entry. Within the quotes, all information not in
angle brackets or square brackets will appear on the output as shown.
Information in angle brackets (i.e. < ... >) represents a description
of the actual information that would appear. (E.g. <\F3date\F4>
is used to indicate that the actual date [from the Date Card] would
appear at that point.) Furthermore, the information in \F3italics \F4is
copied from the input data, i.e. is under the user's control.
Information in square brackets (i.e. [ ... ]) represents
infor- mation that may or may not appear depending on the input data.\.
\←R\→r\;
\F1II-A. BUYING LIST\F4
\J This list contains the cumulative total quantity ordered for each product,
i.e. the quantity that needs to be available to fill the orders. The products
are listed in the order of their occurance in the Product File, which for
convenience should be the order used on the Order Form.
Two copies of this list are printed, a "\F5FILE COPY\F4" and a
"\F5WORK COPY\F4" (a simple modification of the ORDER COMPILATION PROGRAM will yield
two work copies). The work copy is intended to be used to (1) place bulk
orders for the products, and (2) provide a convenient place to record the wholesale
prices that have changed for entry by the person\f9(s\f9) using the BILLING PROGRAM.\.
The heading of the Buying List appears as
"\F5BUYING LIST FOR THE WEEK OF \F4<\F3date\F2> (<label>\F5 COPY, PAGE \F2<page no.>
\R\F5OF \F2<max. page no.>) <\F3cooperative descriptive information\F4>"
and the entry for each product has the form
"<\F3product name\F2> <total quantity ordered> <\F3unit of measure\F2>
\R(<\F3last wholesale price\F4>)"
\J On occasion prices will appear as zero, or as a negative number. These
have a special significance to the programs as described in the remarks on page 15.\.
\C-5-
\F1II-B. PACKING LISTS\F4
\J There is a Packing List produced for each product that has been ordered.
They are to be used to tell how to distribute the products to the accounts,
and to keep a record of any shortages that occur. The heading of each list
has the form:\.
\C"\f7[\F6*** \F5NOTE TO PACKER - \F4<\F3up to 40 characters of note\F4>\f7]"\.
"<\F3product name\F4> \F5BY THE \f4<\F3unit of measure\F4> (<\F3date\F4>)
\R<\F3cooperative descriptive information\F2> (<\F3product code\F2>) <sequence number>"
"\F5MISSING QUANTITY ACCT NAME\F4"
and each entry has the form:
\C"\F5_____ \f4<\F3quantity\F4> \f5→ <\F3account number\F4> <\F3member name\F4>"
\J In using the list, the packer is to distribute the product as indicated by
the quantity and account number/name entries (use of both account number and name
provides a check that reduces the possibility of error).
If for some reason an account cannot get all or part of it's ordered quantity,
the packer should write the quantity missing (just the number, without the units)
in the space provided. This information can be used later to credit accounts for
items they were charged for but did not receive. When the packer finishes each
account \f9(s\f9)he should check it off, but NOT in the "\F5MISSING\F4" space.
After distribution is completed the Packing Lists should be arranged in the
order indicated by the sequence numbers. Then the lists can easily be used to
record any missing items that are reported.
The product code is printed for the benefit of the person preparing Order
Change entries to be made to the BILLING PROGRAM.\.
\C-6-
\F1II-C. PACKING LABELS\F4
\J There are Packing Labels produced as needed to accomodate the orders for
items that are not distributed loosely. The format of the labels is:\.
\C"<\F2quantity> <\F3unit of measure\F2> <\F3date\F2>"
\C"<\F3product name\F2>"
\C"\f7[<\F3prefix\F2>\f7]<\F3account number\F2>: <\F3member name\F4>"
\J Consideration is made for the maximum number of product units that can fit
into a container. For example, if peanuts can be packaged up to 5 lbs. in a bag and
someone ordered 8 lbs., a label for 5 lbs. and another for 3 lbs. would be produced (see page 15).
The labels are printed in up to five columns across the page, and are grouped
by the product.\.
\F1II-D. PRICE LIST\F4
\J Similar to the Buying List, two copies of this list are printed - a "\F5FILE
COPY\F4" and a "\F5WORK COPY\F4". The heading appears as:\.
"\F5PRICE LIST FOR THE WEEK OF \f4<\F3date\F2> (<label>\F5 COPY, PAGE \F2<page no.>
\R\F5OF \F2<max. page no.>) <\F3cooperative descriptive information\F4>"
"\F5ITEM COOP PRICE UNIT COST MARKUP (%)\F4"
and the entry for each product has the form:
"<\F3product name\F2> <selling price> <\F3unit of measure\F2> \;
<\F3wholesale price\F2> <\F3% markup\F4>"
\J The products are listed in the same order as on the Buying List. On
occasion prices will appear as zero, or as a negative number -- these have a
special significance to the programs as described in the remarks on page 15.
The \F5MARKUP\F4 used to obtain the \F5COOP PRICE\F4 from the wholesale
\F5COST\F4 is defined
on the Cooperative Information Card (see page 12) or on the Product Card for the
particular product (see page 15).\.
\C-7-
\F1II-E. STATUS OF ACCOUNTS\F4
\J This output summarizes the activity in each account for the billing cycle.
Two copies are produced so that one can be displayed for examination by the
membership and one can be saved. More copies can be obtained by a simple
modification of the BILLING PROGRAM. The copies are identical and begin with
the heading\.
"\F5STATUS OF ACCOUNTS AS OF \f2<\F3date\F2> (\F5PAGE \F2<page no.>\F5 OF \;
\F2<max. page no.>)
\R<\F3cooperative descriptive information\F4>"
and have the following column headings:
"\F5ACCT NAME NEW-BAL OLD-BAL ORDER CUMUL \f7[\f4<\F3accounting list codes used\F4>\f7]"
The following information is provided for each account:
"<\F3account number\F2> \f7[<delinquency flag>\f7] <\F3member name\F2>
\f7[<current balance> <\F3previous balance\F2>\f7] <total of current order>
\R\f7[<cumulative total of orders to date> <\F3accounting list entries\F4>\f7]"
At the end of the list the total of each column is printed in the form
"\F5TOTALS (\F2<number of orders placed>\F5 ORDERS)\F2 <totals of the columns>\F4"
\JFinally, two notes are printed if Accounting Lists are used to enter transactions
in addition to the orders. See the Accounting List Headings description, page
13, for examples of possible transactions.\.
"\F5NOTES: 1 - DIGIT AFTER ACCT. NO. IS NUMBER OF CONSECUTIVE TIMES BALANCE
HAS BEEN BELOW $\f2<\F3dollar limit\f2>\F5. DIGITS LESS THAN \;
\f2<\F3number limit\f2>\F5
ARE NOT PRINTED. `#' IS PRINTED IF DIGIT WOULD BE GREATER
THAN 9.\f4"
\f4"2 - COLUMN CODES: \f2<\F3list of the Accounting List Heading cards\F4>"
\JThe number limit and dollar limit mentioned in the first note above are variables
that are defined on the Cooperative Information Card (see page 12).\.
\C-8-
\F1II-F. BILLING SHEETS\F4
\J A Billing Sheet is produced for every account that has placed an order, or
if no order was placed but the account's balance has changed due to some other
transaction.
The form of the Billing Sheets, when Accounting Lists are used, is:\.
"\f7[<\F3prefix\F2>\f7]<\F3account number\F2>: <\F3member name\F2> \;
<\F3member information\F2>"
"<\F3cooperative descriptive information\F2>"
"\F5 ITEM QUANTITY UNIT PRICE TOTAL\F2"
"<\F3product name\F2> <quantity> <\F3unit of measure\F2> <selling price> <total charge>"
. . . . .
. . . . .
"<\F3product name\F2> <quantity> <\F3unit of measure\F2> <selling price> <total charge>"
"\F5TOTAL OF ORDER\F2 <total of order>"
"\F5STATEMENT OF ACCOUNT FOR WEEK ENDING \f2<\F3date\F2>"
"\F5 CHARGES CREDITS BALANCE\F2"
"\F5OLD BALANCE \f2<\F3previous balance\F2>"
"\f7[<\F3accounting list headings\F2> <\F3accounting list entries\F2>\f7]"
"\F5TODAY'S ORDER \F2<total of order>"
"\F5NEW BALANCE \F2<current balance>"
"\f7[<\F3billing sheet notes\F4>\f7]"
\J If the account has placed no order the itemization portion is omitted. If
Accounting Lists are not used the form is modified by the addition of the line
"\F5ORDER FOR \f4<\F3date\F4>"
before the itemization of the order, and the statement portion at the bottom is
not printed.
If a product was ordered but none is available for some reason the words
"\F5NOT BOUGHT\F4" are printed in place of the selling price and the total charge
is left blank. If a product was ordered which is no longer available\.
\C-9-
\F1II-F. BILLING SHEETS \F4(continued)
\J(e.g. an old
Order Form was used) the words "\F5NO LONGER AVAILABLE\F4" are printed similarly.
(These special notes are produced when a product's wholesale price is input as zero,
or as a negative number, respectively. See page 15 for a further description.)\.
\F1II-G. MEMBERSHIP FILE CARDS\F4
\J When Accounting Lists are used the programs keep track of the status of the
member accounts. In order to do this the most recent accounting information must
be available. This is done by having the BILLING PROGRAM punch a
new set of Membership Cards with the current information. When desired the
accounts' cumulative totals of orders can be reset to zero by the BILLING PROGRAM
(see page 12 for how to do this).
When Accounting Lists are not used the BILLING PROGRAM does not punch these cards.\.
\C-10-
\F1III. DESCRIPTION OF THE INPUT\F4
\F1III-A. SUMMARY OF THE INPUT\F4
1. "Administrative" information (changes rarely, only as needed)
a. Information about the organization (see page 12)
(1). Optional account number prefix to appear on Labels and
Billing Sheets
(2). Descriptive information about the cooperative
(e.g. name, address, phone)
(3). Percentage markup to be applied (see d.(5) below also)
(4). Dollar limit for account flagging
(5). Occurance limit for account flagging
(6). Signal to reset accounts' cumulative totals of orders
b. Accounting List definitions (see page 13)
c. For each member account (see page 14)
(1). Account number
(2). Member's name
(3). Any information desired to be printed on the top of the
account's Billing Sheet (e.g. address & phone)
(4). Account's current balance (updated automatically)
(5). Cumulative total of the account's orders
(updated automatically)
d. For each product (see page 15)
(1). Product code
(2). Product name/description
(3). Unit of sale
(4). Packaging information
(5). Optional percentage markup for the particular product
(6). Wholesale price of the product
(7). Optional note to the packagers
2. "Production" information (changes every order cycle)
a. Date to be on the output (see page 16)
b. The orders (see page 17)
c. Lists of accounting transactions to be applied to the
accounts' balances (see page 19)
d. Lists of product order changes to be made after use of the
ORDER COMPILATION PROGRAM (see page 21)
e. Text of notes to be printed on every account's Billing Sheet
(see page 23)
Note - In category 1. items a-(1), a-(4), a-(5), a-(6), b, c-(3), c-(4), c-(5),
d-(5) & d-(7) are optional; in category 2. items c, d, & e are optional.
\C-11-
\F1III-B. COOPERATIVE INFORMATION CARD\F4
Description: \←.\→1\→l\jOne card containing information about the cooperative, and
accounting information.\.
Format: Col. 1-4 \←.\→2\→l\jOptional account number prefix (any 3 characters
but can't begin with "$", "/*", or "//") to appear on the Labels and Billing Sheets,
see pages 7, 9, & 14 (e.g. this can be used as a "branch" identification)\.
4-64 \jAny descriptive information desired to be printed on
all output (e.g. name, address, & phone number of the cooperative)\.
65-69 \jPercentage markup to be applied to the wholesale
product prices (i.e. the selling price is computed as
[<\F3wholesale price\F4>] \f2x [100 + <\F3markup\F4>]/100) (see Remark 1)\.
70-76 \jDollar limit to be used to monitor "negligent"
accounts; i.e. an account is "flagged" on the Status
of Accounts if its balance falls below this
dollar limit (see Remark 2)\.
77-78 \jThe "delinquency flag" will not be printed on
the Status of Accounts if it is less
than this number (see Remark 2)\.
79-80 \jSignal to the BILLING PROGRAM to reset the cumula- tive
totals of the accounts' orders to zero before proceeding. Reseting will occur when a "\f2T"
appears in this field, otherwise leave blank.\.
Restrictions: \←.\→3The number limit must END in column 78.
Remarks: 1. \←.\→4\→l\jA different markup can be given to individual products
(see page 15).\.
2. \jThe flagging of accounts applies only if Accounting Lists
are used (see pages 13 & 19).\.
Example:
\F2BR-NAME OF THE COOPERATIVE 1234 MAIN ST. (PHONE 123-4567) 10.0 -5.00 2 T
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 \f5←card column numbers\f5→ 64 66 72 78 80
\J(The account number prefix "\F2BR-\F4" is to appear on the Labels and Billing Sheets;
a \F210.0\F4% markup is to be applied to the wholesale prices of all products that
don't have an alternative markup; accounts with balances below \F2-$5.00\F4 are to be
monitored, and are to be "flagged" on the Status of Accounts if they are
below that level \f22 or more times consecutively; the accounts' cumulative totals
of orders are to be reset by the BILLING PROGRAM before other processing is done.)\.
\C-12-
\F1III-C. ACCOUNTING LIST HEADINGS \F4(Optional)
Description: \←1\→l\jAccounting Lists are used to record monetary transactions
to members' accounts in addition to orders. These cards,
up to 10 in number, are used to define the lists to be used.\.
Format: Col. 1-2 \←2\→l\jTwo character code to be used later to identify
the Accounting List (see page 19)\.
3 Blank
4 \j"+" or "-" to indicate that the list is to be
con- sidered as credits or charges, respectively\.
5 Blank
6-25 \jArbitrary list heading as to appear on members'
statements (see Examples below)\.
26-80 Blank
Restrictions: No more than 10 Accounting Lists can be used at one time.
No identifying code can be used more than once.
Remarks: \←3\→l\jIf no Accounting List Headings are supplied the BILLING PROGRAM
will not do any accounting other than compute the cost of the orders
and produce an itemized list of each member's order (it still produces the
Price List and a modified Status of Accounts).
Only the Accounting List Headings for which there are entries are printed on each
Billing Sheet. The order in which the Accounting List Headings are entered in the
data determines the order in which they will appear on the Billing Sheets and on
the Status of Accounts.\.
Examples: \F2MD + MONEY DEPOSITED\F1
\F2 MR - MONEY REFUNDED\F1
\F2 MI + MISSING (LAST ORDER)\F1
\F2 EB - EXTRAS (LAST TIME)\F1
\F2 DR + MEMB. DEPOSIT REFUND\F1
\F2 MF - MEMBERSHIP DEPOSIT\F1
\F2 JR + JAR DEPOSIT RETURN\F1
\F2 JD - JAR DEPOSIT\F1
\F2 CP + ACCOUNT CORRECTION\F1
\F2 CM - ACCOUNT CORRECTION\F1
\F2 \F4↑ ↑ ↑ ↑
col. 1 4 6 25
\C-13-
\F1III-D. MEMBERSHIP FILE\F4
Description: \←.\→1\→l\jUp to 200 cards, each providing information about a member account.\.
Format: Col. 1-3 \←.\→2\→lOptional account number prefix (see pages 7, 9, & 12)
4-6 Account number
7 Blank
8-23 \jMember's name (e.g. last name, and initial if needed
to prevent ambiguity)\.
24-63 \jAny desired information to be printed at the top of the
account's Billing Sheet (e.g. address & phone)\.
64-70 Current balance of the account (see Remark)
71-72 \jNumber of consecutive times the balance has been below
the "dollar limit" on the Cooperative Infor- mation Card
(see page 12 and Remark below)\.
73-80 \jCumulative total of the account's orders to date; reset
to zero by the BILLING PROGRAM upon request (see page 12 and Remark below)\.
Restrictions: \←.\→3\→l\jThe account number prefix must be the same as that on the
Cooperative Information Card (see page 12).\.
\jThe account number must END in column 6.\.
\jWhen creating a new account the last three items can be left blank.\.
\jThe largest account number that can be used is 200 (see page 37)
-- the programs are inefficient if account numbers larger than necessary are used,
therefore avoid "holes" in the membership list.\.
Remark: \jColumns 64-80 are ignored if no Accounting Lists are used (see
pages 13 & 19).\.
Examples:
\F2 23 JONES, R. 1234 MAIN ST. (123-4567) 3.72 0 27.63
\F6 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 5 8 24 30 54 63 67 72 76
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓
\F2BR-114 SMITH PLEASE CALL BOB ABOUT WORKING NEXT WEEK -16.51 3 159.13\F4
\C-14-
\F1III-E. PRODUCT FILE\F4
Description: Up to 150 cards, each providing information about a product.
Format: Col. 1-2 \←2\→l\jTwo character product code to be used to identify the product
when entering orders (see Remark 1 below, and the Orders File description,
page 17)\.
3 Blank
4-19 Product name/description
20 Blank
21-26 \jArbitrary unit of sale (e.g. \F2POUND, EACH, BUCKET, \F4etc.)\.
27-28 \jPackaging code - "\f20" if the product is to be distributed
loosely; otherwise, maximum number of "units" that will
fit into the container to be used \.
29-33 \jOptional percentage markup for this product; if left blank
the "standard markup" on the Cooperative Information Card
will be used (see page 12)\.
34-39 \jWholesale price of the product (see Remarks 2 & 3)\.
40 Blank
41-80 \jOptional note to packagers (copied onto the Packing List
for the product)\.
Restrictions: \←3\→l\jNo product code can be used more than once (the ORDER
COMPILATION PROGRAM prints an error message if this occurs).
The packaging code must END in column 28.
The cards in this file can be in any order, but it is most
convenient to have them in the order used on the Order Form. \.
Remarks: 1. \←.\→4\→l\jThe product code can be any two characters, but the keypunching
of the Orders File cards is significantly complicated if numbers
are used in just some of the codes. \.
2. \jIf a product is temporarily unavailable, set the price to zero
and the BILLING PROGRAM will print "\F5NOT BOUGHT\F4" on the Billing Sheets in place
of the price.\.
3. \jIf a product is permanently unavailable, make the price negative
and the ORDER COMPILATION PROGRAM will ignore orders for the product, and the
BILLING PROGRAM will print "\F5NO LONGER AVAILABLE\F4" on the Billing Sheets in
place of the price. This is useful when orders are placed with old Order Forms.
When you are sure no more orders for this product will be placed remove the product
card.\.
\C-15-
\F1III-E. PRODUCT FILE \F4(continued)
Examples:
\F2RO ROLLED OATS POUND 3 0.205
\J\f4(\F2ROLLED OATS\F4 are to be packaged in a container with a maximum capacity of \F23 POUND\F4s;
the "standard markup" is to be used and the wholesale price is $\F20.205\F4.)\.
\F2GF GRAPEFRUIT EACH 0 12. 0.123 PLEASE HANDLE CAREFULLY
\J\f4(\F2GRAPEFRUIT\F4 are to be distributed by the \F2EACH\F4, loosely; this product is to be
marked up \F212.0\F4% instead of the "standard markup"; the wholesale price is $\F80.123\F4;
the packers are to be given the note shown.)\.
\F1III-F. DATE CARD\F4
Description: One card, used to input the date to be on the output.
Format: Col. 1-8 Date to be on the output, e.g. the distribution date
9-80 Blank (ignored if not blank)
Restrictions: None
Remarks: \←.\→5\→l\jThe date can contain any characters, e.g. "\F8SEPT. 18" could be
used, or any other desired form.\.
Examples: \F210/20/75
\F6↑
\F41
\F6↓
\F24/3/75
\C-16-
\F1III-G. ORDERS FILE\F4
Description: \←1\→l\jOne or more cards per account ordering, containing a list of
the products ordered and their quantities.\.
Format: Col. 1-3 Account number
4 Blank
5-6 \f6↑
9-10 |
13-14 |
17-18 | Two character codes of the products ordered
. | (see Product File, page 15)
. |
. |
77-78 \f6↓
7-8 \f6↑
11-12 |
15-16 |
19-20 | Two digit quantities ordered
. |
. |
. |
79-80 \f6↓
Restrictions: EVERY card must begin with an account number.
The account number must END in column 3.
No product can be ordered more than once by an account.
\←3\→l\jOrder quantities must be TWO characters. (Blanks are
read as zeros, but it's best to preceed a one digit quantity with a "0".)\.
Remarks: The Order cards can be in any order within this file.
\jProducts can be in any order in an account's order (however, the
programs are most efficient when the products appear in the order
of the Product File, see page 15).\.
\jA blank product code will cause the programs to skip to the next
product code.\.
\jA zero quantity can be given to a mis-typed product code as long
as the code is a valid one, and it has not already been ordered
by the account.\.
\C-17-
\F1III-G. ORDERS FILE \F4(continued)
Examples:
\F2 23 AP05BA 3CR12 BR01JA03
\J\F4(Account #\F223\F4 is ordering \f25 units of the product with code "\F2AP\F4",
\f23 units of "\F2BA\F4", \F212\F4 units of "\F2CR\F4",
\f21 unit of product "\F2BR\F4", and \f23 units of "\F2JA". Note that " \f23"
was given as the quantity for "\F2BA\F4" instead of "\F203\F4" and one field was left blank.)
\F2107 BA05JA03CR12AP10
\F4(Account #\F2107\F4 is ordering \f25 units of the product with code "\F2BA\F4",
\f23 units of "\F2JA\F4", \F212\F4 units of "\F2CR\F4",
and \F210\F4 units of product "\F2AP\F4". Note that the product codes are
in a different order than used in the first example.)
\.
\C-18-
\F1III-H. ACCOUNTING LISTS FILE\F4 (Optional)
Description: \←1\→l\jOne or more cards per Accounting List having entries, each
containing a list of account numbers and their dollar entries.\.
Format: Col. 1-2 \←.\→2\→l\jAccounting List code (see Accounting List Headings,
page 13)\.
3 Blank
4-6 \f6↑
14-16 |
24-26 |
34-36 | Account numbers
44-46 |
54-56 |
64-66 \f6↓
7 \f6↑
17 |
27 |
37 | "-" (Used only to ease visual examination of the
47 | card, see Remark 7)
57 |
67 \f6↓
8-13 \f6↑
18-23 |
28-33 |
38-43 | Dollar amounts
48-53 |
58-63 |
68-73 \f6↓
74-80 Blank
Restrictions: EVERY card must begin with an Accounting List code.
Account numbers must be RIGHT JUSTIFIED in their fields.
\←3\→l\jDollar amounts MUST CONTAIN a DECIMAL POINT, and can be
left justified in their fields.\.
No account number can appear on a list more than once.
Remarks: 1. There need not be any cards in this file.
2. Accounting List cards can be in any order in this file.
3. Accounts can be in any order on a list.
4. \←.\→4\→l\jA blank account number will cause the programs to skip
to the next account number.\.
\C-19-
\F1III-H. ACCOUNTING LISTS FILE \F4(continued)
Remarks (cont.): 5. \←.\→l\jIn the dollar amounts, trailing zeros to the right of
the decimal point need not be entered.\.
6. \jA zero dollar amount can be given to a mis-typed account
number as long as it refers to an active account that
has not already appeared on that list.\.
7. \jThe "-" characters are automatically copied from the
preceeding card when the Drum Card is used; use the
Lead Card to get them onto the first card.\.
Example:
\F2MD 23-7. 107-12.34 07-.6
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 14 18 25 28
\J(The Accounting List "\F2MD\F4" [e.g. money deposited] contains entries of $\F27.00\F4 for
account #\F223\F4, $\F212.34\F4 for #\F2107\F4, and $\F2.60\F4 for #\f27. Note the right
justification of the account numbers, the use of blanks in place of trailing zeros,
the left justification of the dollar amounts, and the leading zero used
[optionally] on account #\f27 to fill the space of the second digit.)
\.
\C-20-
\F1III-I. ORDER CHANGES FILE\F4 (Optional)
Description: \←1\→l\jOne or more cards per product having its orders changed.
(Used when it is known that certain accounts will receive
a different quantity than they originally ordered.)\.
Format: Col. 1-2 Product code (see Remark 1 below & Product File, page 15)
3 Blank
4-6 \f6↑
14-16 |
24-26 |
34-36 | Account numbers
44-46 |
54-56 |
64-66 \f6↓
7 \f6↑
17 |
27 |
37 | "-" (Used only to ease visual examination of
47 | the card, see Remark 6)
57 |
67 \f6↓
8-9 \f6↑
18-19 |
28-29 |
38-39 | Quantity of the product originally ordered by
48-49 | the account
58-59 |
68-69 \f6↓
10 \f6↑
20 |
30 |
40 | "," (Used only to ease visual examination of
50 | the card, see Remark 6)
60 |
70 \f6↓
11-12 \f6↑
21-22 |
31-32 |
41-42 | Quantity of the product to be charged to the
51-52 | account
61-62 |
71-72 \f6↓
13 \f6↑
23 |
33 |
43 | Blank
53 |
63 |
73-80 \f6↓
\C-21-
\F1III-I. ORDER CHANGES FILE \F4(continued)
Restrictions: EVERY card must begin with a product code.
Account numbers must be RIGHT JUSTIFIED in their fields.
Quantities must be RIGHT JUSTIFIED in their fields.
Remarks: 1. \←4\→l\jThe product code is printed in the upper right corner of
the Packing Lists. It can also be found on the Product Cards.\.
2. There need not be any cards in this file.
3. The Order Change cards can be in any order in this file.
4. Accounts can be in any order on a list.
5. \jA blank account number will cause the program to skip to
the next account number.\.
6. \jThe "-" and "," characters are automatically copied from
the preceeding card when the Drum Card is used; use the
Lead Card to get them onto the first card.\.
Example:
\F2BA 23-02,00 107-00,03 07- 3, 1
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 11 14 18 21 25 28 31
\J(Orders for the product with code "\F2BA\F4" are to be changed as follows: account
#\F223\F4 originally ordered \f22 units, but will actually receive none; account #\F2107\F4
didn't order any of this product originally, but will actually get \f23 units;
account #\f27 ordered \f23 units, but will get only \f21.)\.
\C-22-
\F1III-J. BILLING SHEET NOTES\F4 (Optional)
Description: \←1\→l\jUp to 10 cards containing any information desired to be copied
onto each Billing Sheet.\.
Format: Col. 1-64 Information to be copied verbatim
65-80 Blank (ignored if not blank)
Restrictions: \←3\→l\jNo more than 10 cards can be used.
The note cards CANNOT BEGIN WITH "$", "//", "/\f6*", or the
characters "00 " (i.e. two zeros followed by blanks).\.
Remarks: There need not be any cards in this file.
\jAny cards that appear will be copied exactly onto the Billing
Sheets; use blank cards to get blank lines between printed lines.\.
Examples:
\F2PLEASE READ THE FOLLOWING NOTES:
\R\F4←(blank card
\F2 1. THERE WILL BE A MEETING SUNDAY. \R\F4used to get
\F2 2. THERE WILL BE A SPECIAL ORDER OF APRICOTS NEXT WEEK \R\F4blank line)
\F2 ($.20/LB.) - WRITE IN ON ORDER FORM IF YOU WANT SOME.
\F4↑ ↑
1 64
\C-23-
\F1APPENDIX A. ORDER COMPILATION PROGRAM CHECKLIST
1. MATERIALS NEEDED FOR RUNNING THE PROGRAM\F4
(a) ORDER COMPILATION PROGRAM deck
(b) Entire data from the BILLING PROGRAM
(c) \←.\→l\jDrum Cards for Membership File, Product File, Orders File,
(and Accounting Lists File, with its Lead Card)\.
(d) List of any account changes (e.g. additions, changes, deletions)
(e) List of any product changes (e.g. additions, changes, deletions)
(f) Order Forms
(g) Accounting List entries to be made, if any
(h) \F6________________________________________________________________\F4
(i) \F6________________________________________________________________\F4
(j) \F6________________________________________________________________\F4
(k) \F6________________________________________________________________\F4
\C-24-
\F12. \←.\→l\jPUNCH\f4 CARDS\f4 AS\f4 PER\f4 THE\f4 FOLLOWING\f4 PAGES\f4 AS\f4 NEEDED
\f4 AND\f4 USE\f4 TO\f4 REPLACE\f4 THE\f4 CORRESPONDING\f4 OLD\f4 DATA\F4\.
The "Drum Card Formats" given have the following meaning:
<\F2CAPITAL LETTER\F4> \←.\→l\→p\jIndicates the beginning of a field, i.e. the
column at which the keypunch machine stops
after an automatic "skip" or "duplicate,"
or after you press the "\F2SKIP\F4" key.\.
<\F2small letter\F4> Indicates the extent of a field.
"\f2N" or "\f2n" \jIndicates the keypunch machine expects entry
of a "shifted" character, e.g. a number.
(Note - in this mode the "." in the top row
of keys must be used, not the one on the "9"
key!) "Un-shifted" characters can be entered
in this mode by holding the "\F2ALPHA\F4" key while
typing the desired characters.\.
"\f2A" or "\f2a" \jIndicates the keypunch machine expects entry
of an "un-shifted" character, e.g. a letter.
In this mode "shifted" characters can still be
entered, however, by simultaneously pressing
the "\F2NUMERIC\F4" key with the desired keys.\.
"\f2s" \jIndicates a column that will be skipped
automatically.\.
"\f2d" \jIndicates a column that will be duplicated
automatically from the preceeding card.\.
Example: A "Drum Card Format" as follows has the meaning indicated below.
\F2NnnnnnnnsssssssAaaaaaaaaadddddddddsssssssNnnnnnnnnnAaaaaaaaaaaaaaaaaaaaaaaaaaaaa
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 9 16 26 35 42 52 80
"Numeric" input is expected in columns 1-8 and 42-51.
"Alphabetic" input is expected in columns 16-25 and 52-80.
Columns 9-15 and 35-41 will be skipped automatically.
Columns 26-34 will be duplicated automatically.
\C-25-
\F12-a. COOPERATIVE INFORMATION CARD\F4 (Page 12)
\F6________________________________________________________________________________
____|________________________________________________________|_____|______|__|__
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 64 69 76 78 80
\F12-b. ACCOUNTING LIST HEADINGS\F4 (Page 13)
\F6_____________________________________ ____________________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 2 4 6 25 1 2 4 6 25
Note: A maximum of 10 can be used at any one time.
\F12-c. MEMBERSHIP FILE\F4 (Page 14)
Drum Card Formats: 2 digit/3 digit account number versions
\F2AaasNnsAaaaaaaaaaaaaaaaAaaaaaAaaaaaaaaaaaaaaaaaaaaaaaNnnnnnnnnnddddddddddddddddd
\F6↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 45 8 24 30 54 64 80
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
\F2AaaNnnsAaaaaaaaaaaaaaaaAaaaaaAaaaaaaaaaaaaaaaaaaaaaaaNnnnnnnnnnddddddddddddddddd
\F4Example:
\F6____ __________________________________________
____\F2123 JONES \F6__________________________________________ \F23.72 0 27.63
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 8 24 63 67 72 76
\F12-d. PRODUCT FILE\F4 (Page 15)
Drum Card Formats: Product card creation
\F2AasAaaaaaaaaaaaaaaasAaaaaasNsNnnnsNnnnnsAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 21 28 30 35 41 80
\F4Example:
\F2RO ROLLED OATS POUND 3 12. 0.123 THIS IS A SAMPLE NOTE TO THE PACKERS
\F4\C-26-
\F12-e. DATE CARD\F4 (Page 16)
Example: \F210/2/75
\F4↑
1
\F12-f. ORDERS FILE\F4 (Page 17)
Drum Card Formats: 2 digit/3 digit account number versions
\F2sNnsAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNn
\F6 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F412 5 7 9 11 17 25 33 41 49 57 65 73 79
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
\F2NnnsAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNnAaNn
\F4Examples:
\F2 23 AP05BA 3CR12 BR01JA03
107 BA05JA03CR12AP10
\C\F6***\F1 REMEMBER TO RETRIEVE THE DRUM CARD \F6***
\F12-g. ACCOUNTING LISTS FILE\F4 (Page 19)
Drum Card Formats:
2 digit account number version -
\F2AassNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 15 18 25 28 35 38 45 48 55 58 65 68 74 80
3 digit account number version -
\F2AasNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnsssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 8 14 18 24 28 34 38 44 48 54 58 64 68 74 80
Note - \←.\→l\jWhen the Drum Card is used, the "." on the "\f6<" key (top row) must be used
instead of the one on the "\f29" key.
To get to the next account number field after typing a dollar amount,
press "\F2SKIP\F4".\.
(Example on next page)
\C-27-
\F12-g. ACCOUNTING LISTS FILE\F4 (continued)
Example:
\F2MD 23-7. 107-12.34 07-.6
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 14 18 25 28
(The Accounting List "\F2MD\F4" contains entries of $\F27.00\F4 for account #\F223\F4, etc.)
\C\F6***\F1 REMEMBER TO RETRIEVE THE DRUM CARD \F6***
\F13. RUN THE PROGRAM\F4
Look at the 4th page of the output for error messages.
\←.\→l\→p\jAny error messages that are printed by the program (i.e. those
shown in Appendix E) should be self explanatory. \F0(In some very rare cases one error
may incorrectly cause the printing of additional error messages - if a message seems
to be wrong, i.e. the data seems to be correct as is, either you're missing
something or you've been lucky enough to get one of these "funny" messages.)
Certain other errors can occur which cause the program to fail completely, and
unfortunately they aren't at all self explanatory (the messages aren't produced by
the program). These errors appear in the form "\F5***ERROR*** \F3aa\f5-n\F0" where
the letters and number identify the error. The following is a brief explanation
of the likely cause of these errors.\F4\.
\←l\→k\←.\→l\j\F5FM-\f2O\F0 or \F5FM-2\F0 -- means that the
data card quoted as the "\F5INPUT
RECORD\F0" is not compatible with the program's expectations. This occurs most
frequently when the information on the card is in some way unacceptable (e.g. a
letter appears in a "number" field), but can also occur when the data cards are not
in the correct sequence (e.g. the Product File accidentally put in front of the
Membership File, or a single card put in the wrong file), or, even less frequently,
a preceeding card is somehow very wrong.
\F5UN-\f2O\F0 or \F5UN-5\F0 -- indicates that (a) one or more cards are missing at
the end of the data, or (b) a data card begins with a "$" or the characters "//" or
"/*", none of which are allowed.\.
\←k\→l\jNOTE - the computer DOES NOT make mistakes, so nothing is accomplished by
re-running the program without making any changes. If all else fails, find
someone who is familiar with FORTRAN (the programming language in which the program
is written) using the WATFIV compiler and ask for assistance in deciphering the
problem.\.
\F4Correct the data as needed and re-run the program.
\JOnce a completed run is obtained tear off the first 4 pages, and the last 3
pages, and discard them in a RECYCLE BOX (the second page of the output may
be wanted if someone is monitoring the cost of the computer runs).\.
\C-28-
\F1APPENDIX B. BILLING PROGRAM CHECKLIST
1. MATERIALS NEEDED FOR RUNNING THE PROGRAM\F4
(a) BILLING PROGRAM deck
(b) Entire data from the ORDER COMPILATION PROGRAM
(c) \←.\→l\jDrum Cards for Product File (Price Changes), (Accounting Lists File,
with its Lead Card), and Order Changes File with its Lead Card\.
(d) List of the current wholesale prices
(e) Accounting List entries to be made, if any
(f) Order Change entries to be made, if any
(g) Billing Sheet Notes to be printed, if any
(h) \F6_________________________________________________________________\F4
(i) \F6_________________________________________________________________\F4
(j) \F6_________________________________________________________________\F4
(k) \F6_________________________________________________________________\F4
\C-29-
\F12. \←.\→l\jPUNCH\f4 CARDS\f4 AS\f4 PER\f4 THE\f4 FOLLOWING\f4 PAGES\f4 AS\f4 NEEDED
\f4 AND\f4 USE\f4 TO\f4 REPLACE\f4 THE\f4 CORRESPONDING\f4 OLD\f4 DATA\F4\.
The "Drum Card Formats" given have the following meaning:
<\F2CAPITAL LETTER\F4> \←.\→l\→p\jIndicates the beginning of a field, i.e. the
column at which the keypunch machine stops
after an automatic "skip" or "duplicate,"
or after you press the "\F2SKIP\F4" key.\.
<\F2small letter\F4> Indicates the extent of a field.
"\f2N" or "\f2n" \jIndicates the keypunch machine expects entry
of a "shifted" character, e.g. a number.
(Note - in this mode the "." in the top row
of keys must be used, not the one on the "9"
key!) "Un-shifted" characters can be entered
in this mode by holding the "\F2ALPHA\F4" key while
typing the desired characters.\.
"\f2A" or "\f2a" \jIndicates the keypunch machine expects entry
of an "un-shifted" character, e.g. a letter.
In this mode "shifted" characters can still be
entered, however, by simultaneously pressing
the "\F2NUMERIC\F4" key with the desired keys.\.
"\f2s" \jIndicates a column that will be skipped
automatically.\.
"\f2d" \jIndicates a column that will be duplicated
automatically from the preceeding card.\.
Example: A "Drum Card Format" as follows has the meaning indicated below.
\F2NnnnnnnnsssssssAaaaaaaaaadddddddddsssssssNnnnnnnnnnAaaaaaaaaaaaaaaaaaaaaaaaaaaaa
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 9 16 26 35 42 52 80
"Numeric" input is expected in columns 1-8 and 42-51.
"Alphabetic" input is expected in columns 16-25 and 52-80.
Columns 9-15 and 35-41 will be skipped automatically.
Columns 26-34 will be duplicated automatically.
\C-30-
\F12-a. COOPERATIVE INFORMATION CARD\F4 (Page 12)
\F6________________________________________________________________________________
____|________________________________________________________|_____|______|__|__
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 64 69 76 78 80
\F12-b. ACCOUNTING LIST HEADINGS\F4 (Page 13)
\F6_____________________________________ ____________________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
____||__||___________________________ ____||__||__________________________
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 2 4 6 25 1 2 4 6 25
Note: A maximum of 10 can be used at any one time.
\F12-c. PRODUCT FILE - Price Changes\F4 (Page 15)
Drum Card Format:
\F2ddddddddddddddddddddddddddddddddddddNnnsAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
\F4↑ ↑ ↑ ↑
1 37 41 80
Note: The drum card causes duplication THROUGH the decimal point of the price.
If there is a note to the packers hit "\F5DUP\F4" after entering the 3 digits
of the price.
\F12-d. DATE CARD\F4 (Page 16)
Example: \F210/2/75
\F4↑
1
\F12-e. ACCOUNTING LISTS FILE\F4 (Page 19)
Drum Card Formats:
2 digit account number version -
\F2AassNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsNndNnnnnnsssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 15 18 25 28 35 38 45 48 55 58 65 68 74 80
(Continued)
\C-31-
\F12-e. ACCOUNTING LISTS FILE\F4 (continued)
3 digit account number version -
\F2AasNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnNnndNnnnnnsssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 8 14 18 24 28 34 38 44 48 54 58 64 68 74 80
Note - \←.\→l\jWhen the Drum Card is used, the "." on the "\f5<" key (top row) must be used
instead of the one on the "\f59" key.
To get to the next account number field after typing a dollar amount,
press "\F5SKIP\F4".\.
Example:
\F2MD 23-7. 107-12.34 07-.6
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 14 18 25 28
(The Accounting List "\F2MD\F4" contains entries of $\F27.00\F4 for account #\F223\F4, etc.)
\F6\C***\F1 REMEMBER TO RETRIEVE THE DRUM CARD \F6***\F4
\F12-f. ORDER CHANGES FILE\F4 (Page 21)
Drum Card Formats:
2 digit account number version -
\F2AassNndNndNnssNndNndNnssNndNndNnssNndNndNnssNndNndNnssNndNndNnssNndNndNnssssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 11 15 18 21 25 28 31 35 38 41 45 48 51 55 58 61 65 68 71 73 80
3 digit account number version -
\F2AasNnndNndNnsNnndNndNnsNnndNndNnsNnndNndNnsNnndNndNnsNnndNndNnsNnndNndNnssssssss
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 4 8 11 14 18 21 24 28 31 34 38 41 44 48 51 54 58 61 64 68 71 73 80
Example:
\F2BA 23-02,00 107-00,03 7- 3, 1
\F4↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
1 5 8 11 14 18 21 26 28 31
\J(Orders for the product with code "\F2BA\F4" are to be changed as indicated: account
#\F223\F4 originally ordered \f22 units, but will actually receive none; etc.)\.
\F6\C***\F1 REMEMBER TO RETRIEVE THE DRUM CARD \F6***\F4
\C-32-
\F12-g. BILLING SHEET NOTES\F4 (maximum of 10 cards) (Page 23)
Examples:
\F2IMPORTANT NOTE:
\R\f5←\F4(blank card used to
\F2 THERE WILL BE A MEETING SUNDAY. \R\F4get blank line)
↑ ↑
1 64
\F13. RUN THE PROGRAM\F4
Look at the 4th page of the output for error messages.
\←.\→l\→p\jAny error messages that are printed by the program (i.e. those
shown in Appendix E) should be self explanatory. \F0(In some very rare cases one error
may incorrectly cause the printing of additional error messages - if a message seems
to be wrong, i.e. the data seems to be correct as is, either you're missing
something or you've been lucky enough to get one of these "funny" messages.)
Certain other errors can occur which cause the program to fail completely, and
unfortunately they aren't at all self explanatory (the messages aren't produced by
the program). These errors appear in the form "\F5***ERROR*** \F3aa\f5-n\F0" where
the letters and number identify the error. The following is a brief explanation
of the likely cause of these errors.\F4\.
\←l\→k\←.\→l\j\F5FM-\f2O\F0 or \F5FM-2\F0 -- means that the data card quoted as the "\F5INPUT
RECORD\F0" is not compatible with the program's expectations. This occurs most
frequently when the information on the card is in some way unacceptable (e.g. a
letter appears in a "number" field), but can also occur when the data cards are not
in the correct sequence (e.g. the Product File accidentally put in front of the
Membership File, or a single card put in the wrong file), or, even less frequently,
a preceeding card is somehow very wrong.
\F5UN-\f2O\F0 or \F5UN-5\F0 -- indicates that (a) one or more cards are missing at the
end of the data, or (b) a data card begins with a "$" or the characters "//" or
"/*", none of which are allowed.\.
\←k\→l\jNOTE - the computer DOES NOT make mistakes, so nothing is accomplished by
re-running the program without making any changes. If all else fails, find
someone who is familiar with FORTRAN (the programming language in which the program
is written) using the WATFIV compiler and ask for assistance in deciphering the
problem.\.
\F4Correct the data as needed and re-run the program.
\JOnce a completed run is obtained tear off the first 4 pages, and the last 3
pages, and discard them in a RECYCLE BOX (the second page of the output may
be wanted if someone is monitoring the cost of the computer runs).\.
\C-33-
\F1APPENDIX C. SUMMARY OF PROGRAM DECK ORGANIZATION\F4
\J The organization of the program decks for use on the Stanford University
IBM 360/67 computer must be as indicated below. Information in angle brackets
(i.e. <...>) represents a description of the actual information that would
appear. Information in double quotes (i.e. "...") represents information that
is written on the card but NOT punched in the card.\.
\F4<Job card>
<Key card>
\F2/* SERVICE CLASS=Q
// EXEC WATFIV
//GO.SYSIN DD *
$WATFIV RUN=NOCHECK,NOWARN,NOLIST
\f6↑
\F4 | <Program deck (see note 1)>
\f6↓
\F2$DATA "START OF DATA"
\F4 <Cooperative Information Card>
\F200 "ACCOUNTING LIST HEADINGS"
\F4 <Accounting List Headings in order to appear (0-10 cards; note 2)>
\F200 "MEMBERSHIP FILE"
\F4 <Member identification cards (1 per account, 1-200 cards; note 3)>
\F200 "PRODUCT FILE"
\F4 <Product identification cards (in same order as on Order Form,
1 per product, 1-150 cards)>
\F200 "DATE CARD"
\F4 <Date card>
\F200 "ORDERS FILE"
\F4 <Order cards (1 or more per account placing order; note 3)>
\F200 "ACCOUNTING LISTS FILE"
\F4 <Accounting Lists cards (1 or more per list used; notes 2 & 3)>
\F200 "ORDER CHANGES FILE"
\F4 <Order Change cards (1 or more cards per product having orders
changed; notes 2 & 3)>
\F200 "BILLING SHEET NOTES"
\F4 <Notes to be printed on all billing sheets (0-9 cards; note 2)>
\F200 "END OF DATA"
$STOP
/*
\F4Notes: 1. \←.\→l\jThe cards of each program deck contain sequence information in columns
76-80. The first card of each deck tells how many cards there are in
the deck, and the number of the last card, so you can determine if all
of the cards are there. The number of cards can be greater than the
number of the last card because new cards may have been inserted after
the deck was numbered. Any such cards have a letter in column 80
indicating where they belong in the sequence and a letter in column 76 indicating
the highest letter used in the insertion (e.g. a sequence like
\F2..., CP 49, CP 50, CPB 50A, CPB 50B, CP 51, CP 52, ... \F4could occur).\.
2. \jThere may be no cards in this group - but the cards with "\F200\F4" in
columns 1-2 MUST still be there.\.
3. Within this group the cards may be in any order.
\←Y\→L\C-34-
\F1APPENDIX D. KEYPUNCH CONTROL CARDS\F4
\JThe information keypunched in the keypunch "drum cards" and "lead cards"
is as follows:\.
\F11. MEMBERSHIP FILE\F4 - Drum cards: 2 digit/3 digit account number versions
\F21AA- &-1AAAAAAAAAAAAAAA1AAAAA1AAAAAAAAAAAAAAAAAAAAAAA &&&&&&&&&/AAAAAAAAAAAAAAAA
\F6↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 4 7 24 30 54 64 80
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
\F21AA &&-1AAAAAAAAAAAAAAA1AAAAA1AAAAAAAAAAAAAAAAAAAAAAA &&&&&&&&&/AAAAAAAAAAAAAAAA
\F12. PRODUCT FILE\F4 - Drum cards: product card creation/price change
\F21A-1AAAAAAAAAAAAAAA-1AAAAA- - &&&- &&&&-1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
\F6↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 4 20 27 34 37 40 80
\F6↓ ↓ ↓ ↓
\F2/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA &&-1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
\F13. ORDERS FILE\F4 - Drum cards: 2 digit/3 digit account number versions
\F2- &-1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &
\F6↑ ↑ ↑
\F41 5 80
\F6↓ ↓ ↓
\F2 &&-1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &1A &
\F14. ACCOUNTING LISTS FILE\F4 - Drum cards: 2 digit/3 digit account number versions
\F21A-& &/ &&&&&& &/ &&&&&& &/ &&&&&& &/ &&&&&& &/ &&&&&& &/ &&&&&& &/ &&&&&&&&&&&&
\F6↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 5 15 25 35 45 55 65 80
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
\F21A- &&/ &&&&& &&/ &&&&& &&/ &&&&& &&/ &&&&& &&/ &&&&& &&/ &&&&& &&/ &&&&&&&&&&&&
\F4Lead card:
\F6 - - - - - - -
↑ ↑ ↑ ↑ ↑ ↑ ↑
\F4 7 17 27 37 47 57 67
\F15. ORDER CHANGES FILE\F4 - Drum cards: 2 digit/3 digit account number versions
\F21A-& &/ &/ &-& &/ &/ &-& &/ &/ &-& &/ &/ &-& &/ &/ &-& &/ &/ &-& &/ &/ &-&&&&&&&
\F6↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F41 5 15 25 35 45 55 65 80
\F6↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
\F21A- &&/ &/ &- &&/ &/ &- &&/ &/ &- &&/ &/ &- &&/ &/ &- &&/ &/ &- &&/ &/ &-&&&&&&&
\F4Lead card:
\F6 - , - , - , - , - , - , - ,
↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
\F4 7 10 17 20 27 30 37 40 47 50 57 60 67 70
\C-35-
\F1APPENDIX F. MAKING CHANGES TO THE PROGRAMS\F4
\F11. CHANGING DATA FILE SIZE RESTRICTIONS\F4
\J Table 2 below lists arrays used in the programs, indicating the relationship
between their dimension\f9(s\f9) and the maximum number of member accounts (\f2m), products
(\f2p), and Billing Sheet Notes (\f2n) which are allowed. The programs are
currently limited to 200 member accounts, 150 products, and
10 Billing Sheet Notes. To increase these limits, modify the appearances of the
appropriate arrays at the locations indicated, and change the values of \F2MXACCT,
MXPROD, \F4and\F2 MXNOTE as indicated in Table 2. (Note - No cards beyond \F2CP 20\F4 and
\F2BP 26\F4 need to be modified.)\.
\CTable 2 - Program Array Dimensions & Variable Values
Array Dimension\f9(s\f9) Card number\f9(s\f9) where appearing
\F6 ____________________________________________________________________________
\F2 BAGQ p CP 4
BUY p CP 4, CP 14
ORDER m,p CP 7, CP 15 BP 8, BP 21
PACK 2,m CP 7, CP 16
CODEX p CP 8 BP 10
LIST 10,m CP 9, CP 15 BP 11, BP 19
PRICE p CP 9 BP 12
PINFOX p,5 CP 11
MEMBRX m,2 CP 12, CP 15 BP 15, BP 20
NAMEX p,2 CP 12 BP 15
UNITX p CP 13 BP 16
COST m,p BP 4
LINES m BP 5
MCNT m BP 5, BP 19
BALNCE m BP 9, BP 17
CUMM m BP 10, BP 17
FACTOR p BP 11
NEW m BP 12, BP 20
SELL p BP 12
TOTAL m BP 13
INFOX m,5 BP 14
NOTEX n,8 BP 15
\F6 ____________________________________________________________________________
\F4 Variable Value Card numbers where appearing
\F6 ____________________________________________________________________________
\F2 MXACCT m CP 18 BP 23
MXNOTE n BP 25
MXPROD p CP 20 BP 26
\F6 ____________________________________________________________________________
\F4\J The maximum number of Accounting List Headings that can be used is 10. This
cannot be increased without a great deal of effort.
Beware that the limits on the file sizes depend on the amount of computer
memory available and this should be taken into consideration when making changes.\.
\C-37-
\F12. CHANGING THE NUMBER OF COPIES OF VARIOUS PRINTOUTS\F4
\J As written the ORDER COMPILATION PROGRAM produces two copies of the
Buying List. From one to three copies can be obtained by changing the program,
and they will be labeled in order: \F2WORK COPY, FILE COPY, WORK COPY\F4.
To change the number of copies change card
\F2CP 146\F4 to read "\F2DO 320 I=1,n\F4" where \f2n gives the number of copies
desired (\F2n = 1, 2, or 3\F4).
Similarly, the BILLING PROGRAM produces two copies of the Price List.
To obtain one to three copies change card \F2BP 163\F4 to "\F2DO 360 I=1,n\F4"
where \f2n again gives the number of copies desired (\F2n = 1, 2, or 3\F4).
The BILLING PROGRAM is written to produce two copies of the Status of
Accounts. One or more copies can be obtained by changing card \F2BP 224\F4 to
"\F2DO 490 I=1,n\F4" where \f2n gives the number of copies desired (\F2n = 1,
2, ...\F4).\.
\F13. PRINTING NEW MEMBERSHIP CARDS INSTEAD OF OR IN ADDITION
TO PUNCHING THEM
\J It may be desirable to have the new Membership Cards printed instead of
punched (e.g. to save money or if punching is not available). This can be done by
changing the words "\F2PUNCH\F4" and "\F2PREFIX\F4" on card \F2BP 310\F4 to
"\F2PRINT\F4" and "\F2BLANKX\F4", respec- tively. Also, a printed
copy may be desired in addition to the punched cards for some reason. To do this
make two cards with the following information, and put then BETWEEN cards
\F2BP 309\F4 and \F2BP 310\F4:\.
\F2 PRINT 5030, BLANKX, I, MEMBERX(I,1), MEMBRX(I,2), BPB309A
2 (INFOX(I,J), J=1,5), NEW(I), MCNT(I) BPB309B
\F4↑ ↑ ↑ ↑
6 14 26 \f6←Column numbers\f6→ 74
\C-38-
\;This is the title page
\C\FAA COMPUTER PROGRAM PACKAGE
\CFOR COOPERATIVES\F4
\C\F1By
\CCharles H. Spalding III
\CApril 1975
\;This is the copyright page
\←X\→L\;
\F0\CCopyright (c) 1975
\Cby
\CCharles H. Spalding III
\CAll Rights Reserved - May Be Copied For Personal Use Only
\CPrinted in the United States of America
\F1APPENDIX E. ERROR MESSAGES PRINTED BY THE PROGRAMS\F4
ORDER
COMPILATION BILLING
Message PROGRAM PROGRAM Note
\F6____________________________________________________________________________________
\F2MEMBERSHIP FILE CONTAINS ACCOUNT #\F3nnn\F2 MORE THAN ONCE \F4Yes No 1
\F2MEMBERSHIP FILE CONTAINS ACCOUNT #\F3nnn\F2 WITH PREFIX "\F3aaa\F2" \F4Yes No 1
\F2PRODUCT FILE CONTAINS PRODUCT CODE "\F3aa\F2" MORE THAN ONCE \F4Yes No 1
\F2ACCOUNT #\F3nnn\F2 ORDERED ITEM "\F3aa\F2" MORE THAN ONCE \F4Yes No 1
\F2ACCOUNT #\F3nnn\F2 ORDERED - THIS ACCOUNT IS INACTIVE \F4Yes No 1
\F2ACCOUNT #\F3nnn\F2 ORDERED ITEM "\F3aa\F2" WHICH IS NOT DEFINED \F4Yes No 1
\F2ACCOUNTING LIST "\F3aa\F2" CONTAINS ACCOUNT #\F3nnn\F2 MORE THAN ONCE \F4Yes Yes 1
\F2ACCOUNTING LIST "\F3aa\F2" CONTAINS ACCOUNT #\F3nnn\F2 WHICH IS \F4Yes Yes 1
\F2 INACTIVE
\F2ACCOUNTING LIST CODE "\F3aa\F2" WAS USED - THIS CODE WAS NOT \F4Yes Yes 1
\F2 DEFINED
\F2AN ORDER CHANGE WAS SUBMITTED FOR PRODUCT "\F3aa\F2" WHICH IS \F4No Yes 1
\F2 NOT DEFINED
\F2AN ORDER CHANGE FOR PRODUCT "\F3aa\F2" WAS ENTERED FOR ACCOUNT \F4No Yes 1
\F2 #\F3nnn\F2 WHICH IS INACTIVE
\F2THE ORDER CHANGE FOR PRODUCT "\F3aa\F2" FOR ACCOUNT #\F3nnn\F2 DOES \F4No Yes 1
\F2 NOT AGREE WITH THE ORIGINAL ORDER
\F2TOO MANY LIST HEADING CARDS IN THE DATA Yes No 2
\F2TOO MANY MEMBERSHIP CARDS IN THE DATA \F4Yes No 2
\F2TOO MANY PRODUCT CARDS IN THE DATA \F4Yes No 2
\F2TOO MANY ORDER CARDS IN THE DATA \F4Yes No 2
\F2TOO MANY ACCOUNTING CARDS IN THE DATA \F4Yes Yes 2
\F2TOO MANY ORDER CHANGE CARDS IN THE DATA \F4No Yes 2
\F2TOO MANY NOTE CARDS IN THE DATA \F4No Yes 2
\F6____________________________________________________________________________________
\F4Notes: 1. \←.\→l\jThe program completes error checking of the data but stops before
producing actual output.\.
2. The program stops immediately.
\←Y\→L\C-36-